home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / EDITORS / WEBKIT3 / !HTML / !RunImage (.txt) < prev    next >
RISC OS BBC BASIC V Source  |  1996-08-30  |  33KB  |  1,420 lines
  1.  HTML Macro Tool
  2.  By Rich Goodwin
  3. " at line ";
  4. Task$="HTML"+
  5. (178)
  6. &Purpose$="Even easier HTML markup"
  7. %Author$=
  8. (169)+" Richard Goodwin"
  9.     !Version$="2.01 (August 1996)"
  10.  quit
  11.  tick1%=
  12. SaveWindowOpts
  13.  tick2%=
  14. SaveDefs
  15. $(block%)="TASK"
  16. "Wimp_CloseDown",taskhandle,!block%
  17. quit=0
  18. pumping=0
  19. DefineSprites
  20.  block% 256
  21.  menublock% 256
  22.  "Wimp_Initialise",200,&4B534154,Task$ 
  23.  ,taskhandle
  24.  "Wimp_OpenTemplate",,"HTML2:Resources.Templates"
  25.  "Wimp_LoadTemplate",,,,,,"Styles" 
  26.  ,templen,worklen
  27.  styles templen,styleswork worklen
  28.  "Wimp_LoadTemplate",,styles,styleswork,styleswork+worklen,-1,"Styles",0
  29.  "Wimp_LoadTemplate",,,,,,"Info" 
  30.  ,templen,worklen
  31.  info templen,infowork worklen
  32.  "Wimp_LoadTemplate",,info,infowork,infowork+worklen,-1,"Info",0
  33.  "Wimp_LoadTemplate",,,,,,"Effects" 
  34.  ,templen,worklen
  35.  effect templen,effectwork worklen
  36.  "Wimp_LoadTemplate",,effect,effectwork,effectwork+worklen,-1,"Effects",0
  37.  "Wimp_LoadTemplate",,,,,,"Characters" 
  38.  ,templen,worklen
  39.  char templen,charwork worklen
  40.  "Wimp_LoadTemplate",,char,charwork,charwork+worklen,-1,"Characters",0
  41.  "Wimp_LoadTemplate",,,,,,"Addresses" 
  42.  ,templen,worklen
  43.  address templen,addresswork worklen
  44.  "Wimp_LoadTemplate",,address,addresswork,addresswork+worklen,-1,"Addresses",0 
  45.  "Wimp_LoadTemplate",,,,,,"Choices" 
  46.  ,templen,worklen
  47.  choice templen,choicework worklen
  48.  "Wimp_LoadTemplate",,choice,choicework,choicework+worklen,-1,"Choices",0
  49.  "Wimp_CloseTemplate"
  50.  "Wimp_CreateWindow",,styles 
  51.  styleshandle
  52.  "Wimp_CreateWindow",,info 
  53.  infohandle
  54.  "Wimp_CreateWindow",,char 
  55.  charhandle
  56.  "Wimp_CreateWindow",,address 
  57.  addresshandle
  58.      effect!64=usersprites%
  59.  "Wimp_CreateWindow",,effect 
  60.  effecthandle  
  61.  "Wimp_CreateWindow",,choice 
  62.  choicehandle
  63. DefineCharacters
  64. DefineAddresses
  65. DefineStyles
  66. DefineEffectsMacros
  67. iconbar
  68. version
  69. defineoptions
  70. iconbar
  71. !block%=-1
  72. block%!4=0
  73. block%!8=0
  74. block%!12=28
  75. block%!16=68
  76. block%!20=&201A
  77. $(block%+24)="html2-a"
  78.  "Wimp_CreateIcon",,block% 
  79.  aiconbarhandle
  80. !block%=-1
  81. block%!4=0
  82. block%!8=0
  83. block%!12=24
  84. block%!16=68
  85. block%!20=&201A
  86. $(block%+24)="html2-c"
  87.  "Wimp_CreateIcon",,block% 
  88.  ciconbarhandle
  89. !block%=-1
  90. block%!4=0
  91. block%!8=0
  92. block%!12=24
  93. block%!16=68
  94. block%!20=&201A
  95. $(block%+24)="html2-e"
  96.  "Wimp_CreateIcon",,block% 
  97.  eiconbarhandle
  98. !block%=-1
  99. block%!4=0
  100. block%!8=0
  101. block%!12=24
  102. block%!16=68
  103. block%!20=&201A
  104. $(block%+24)="html2-s"
  105.  "Wimp_CreateIcon",,block% 
  106.  siconbarhandle
  107. version
  108. !block%=infohandle
  109. block%!4=1
  110. "Wimp_GetIconState",,block%
  111. $(block%!28)=Task$ 
  112. !block%=infohandle
  113. block%!4=2
  114. "Wimp_GetIconState",,block%
  115. $(block%!28)=Purpose$  
  116. !block%=infohandle
  117. block%!4=3
  118. "Wimp_GetIconState",,block%
  119. $(block%!28)=Author$
  120. !block%=infohandle
  121. block%!4=4
  122. "Wimp_GetIconState",,block%
  123. $(block%!28)=Version$
  124. makeiconmenu(X)
  125. $(menublock%)=Task$
  126. menublock%!12=&00070207
  127. menublock%!16=182
  128. menublock%!20=44
  129. menublock%!24=0
  130. menublock%!28=2
  131. menublock%!32=infohandle
  132. menublock%!36=&7000001
  133. $(menublock%+40)="Info"
  134. menublock%!52=0
  135. menublock%!56=0
  136. menublock%!60=&7000001
  137. $(menublock%+64)="Styles"
  138. menublock%!76=0
  139. menublock%!80=0
  140. menublock%!84=&7000001
  141. $(menublock%+88)="Effects"
  142. menublock%!100=0
  143. menublock%!104=0
  144. menublock%!108=&7000001
  145. "$(menublock%+112)="Characters"
  146. menublock%!124=2
  147. menublock%!128=0
  148. menublock%!132=&7000001
  149. !$(menublock%+136)="Addresses"
  150. menublock%!148=0
  151. menublock%!152=choicehandle
  152. menublock%!156=&7000001
  153. "$(menublock%+160)="Choices..."
  154. menublock%!172=2
  155. menublock%!176=0
  156. menublock%!180=&7000001
  157. $(menublock%+184)="Reload"
  158. menublock%!196=&80
  159. menublock%!200=-1
  160. menublock%!204=&7000001
  161. $(menublock%+208)="Quit"
  162. "Wimp_CreateMenu",,menublock%,X,500
  163. openstyles
  164. !block%=styleshandle
  165. "Wimp_GetWindowState",,block%
  166. block%!28=-1
  167. "Wimp_OpenWindow",,block%
  168. openeffects
  169. !block%=effecthandle
  170. "Wimp_GetWindowState",,block%
  171. block%!28=-1
  172. "Wimp_OpenWindow",,block%
  173. openchars
  174. !block%=charhandle
  175. "Wimp_GetWindowState",,block% 
  176. block%!28=-1
  177. "Wimp_OpenWindow",,block%
  178. openaddress
  179. !block%=addresshandle
  180. "Wimp_GetWindowState",,block%
  181. block%!28=-1
  182. "Wimp_OpenWindow",,block%
  183. openchoices
  184. !block%=choicehandle
  185. "Wimp_GetWindowState",,block%
  186. block%!28=-1
  187. "Wimp_OpenWindow",,block%
  188. "Wimp_Poll",0,block% 
  189.  reason,handle
  190.  reason 
  191.  1 : 
  192. "Wimp_RedrawWindow",,block%
  193.  2 : 
  194. "Wimp_OpenWindow",,block%
  195.  3 : 
  196. "Wimp_CloseWindow",,block%
  197.  6 : 
  198. mouseclick(block%)
  199.  9 : 
  200. menuselect(block%)
  201.  17,18 :
  202. message(block%)
  203. mouseclick(bl)
  204.  bl!12=-2 
  205. oniconbar
  206.  bl!12=styleshandle 
  207. ClickOnStyles
  208.  bl!12=effecthandle 
  209. ClickOnEffect
  210.  bl!12=charhandle 
  211. ClickOnChar
  212.  bl!12=addresshandle 
  213. ClickOnAddress 
  214.  bl!12=choicehandle 
  215. ClickOnChoices
  216. oniconbar
  217.  bl!16=siconbarhandle 
  218.  bl!16=eiconbarhandle 
  219.  bl!16=ciconbarhandle 
  220.  bl!16=aiconbarhandle 
  221.  iconbar=
  222.  bl!8=4 
  223.  bl!16=siconbarhandle 
  224. openstyles
  225.  bl!8=1 
  226.  bl!16=siconbarhandle 
  227. "XOS_CLI","Filer_Run <HTML2Scripts$Dir>.Styles"
  228.  bl!8=4 
  229.  bl!16=eiconbarhandle 
  230. openeffects
  231.  bl!8=1 
  232.  bl!16=eiconbarhandle 
  233. "XOS_CLI","Filer_Run <HTML2Scripts$Dir>.Effects"
  234.  bl!8=4 
  235.  bl!16=ciconbarhandle 
  236. openchars
  237.  bl!8=1 
  238.  bl!16=ciconbarhandle 
  239. "XOS_CLI","Filer_Run <HTML2Scripts$Dir>.Chars"
  240.  bl!8=4 
  241.  bl!16=aiconbarhandle 
  242. openaddress
  243.  bl!8=1 
  244.  bl!16=aiconbarhandle 
  245. "XOS_CLI","Filer_Run <HTML2Scripts$Dir>.Address"
  246.  bl!8=2 
  247.  iconbar=
  248. makeiconmenu(!bl-64)
  249. message(bl)
  250.  bl!16 
  251.  0 : quit=-1
  252.  3 : 
  253. fileinsert
  254.  &502: 
  255. menuselect(bl)
  256.  !bl 
  257. "XOS_CLI","Filer_OpenDir HTML2:Resources.^"
  258. openstyles 
  259. openeffects 
  260. openchars
  261. openaddress
  262.   WHEN 5: PROCopenchoices
  263. reload 
  264.  7: quit=-1
  265. push(pump$)
  266. pumping=1
  267. (pump$)=0 
  268. character=
  269. pump$,X,1))
  270. "OS_Byte",138,0,character
  271.  5=0 
  272.  character=10 
  273.  character=13 
  274.  character=32 
  275. (pump$)
  276. pumping=0
  277. zero(number%)
  278.  number%<=9 
  279.  number%>=0 
  280.  ="0" 
  281. DefineSprites
  282.  usersprites% 3500
  283. !usersprites%=3500
  284. usersprites%!8=16
  285.  "OS_SpriteOp",256+9,usersprites%
  286. "OS_SpriteOp",256+10,usersprites%,"HTML2:Resources.Sprite"
  287.  loop=2
  288. zero$=
  289. zero(loop)
  290.  newname$="pal"+zero$+
  291. (loop)
  292. "OS_SpriteOp",256+27,usersprites%,"pal01",newname$
  293. DefineColours
  294.  R$,G$,B$,loop%
  295.  loop%=1 
  296. colour$(loop%),2)
  297. colour$(loop%),3,2)
  298. colour$(loop%),2)
  299. alterpal(loop%,
  300. ("&"+R$),
  301. ("&"+G$),
  302. ("&"+B$))
  303. alterpal(number%,R,G,B)
  304.  ppos%
  305. ppos%=
  306. palpos(number%)
  307. usersprites%?(ppos%+4)=R
  308. usersprites%?(ppos%+5)=G
  309. usersprites%?(ppos%+6)=B
  310. palpos(number%)
  311.  temp%
  312. temp%=57
  313.  number%=1 =temp%
  314. temp%+=108*(number%-1)
  315. =temp%
  316. DefineAddresses
  317.  loop%
  318.  address$(12)
  319. @Laddress$(1)="<a href=""mailto:mabel@argonet.co.uk"">Richard Goodwin</a>"
  320. DoAddressString(0,"Author's E-ddress")
  321. address$(2)="Richard Goodwin,<BR>"+
  322. (13)+"22 Wray Close,<BR>"+
  323. (13)+"St. Anns,<BR>"+
  324. (13)+"Nottingham.<BR>"+
  325. (13)+"NG3 2FS<P>"+
  326. (13)+
  327. (13)+"Email: <a href=""mailto:mabel@argonet.co.uk"">mabel@argonet.co.uk</a>"
  328. DoAddressString(1,"Author's Address")
  329.  loop%=3 
  330. E4address$(loop%)="Address "+
  331. zero(loop%)+
  332. (loop%)
  333. DoAddressString(loop%-1,address$(loop%))
  334. LoadAddresses("<HTML2Scripts$Dir>.Address")
  335. DoAddressString(icon,string$)
  336.  icon>12 
  337. (string$)>28 string$=
  338. string$,28)
  339. !block%=addresshandle
  340. block%!4=icon
  341. "Wimp_GetIconState",,block%
  342. $(block%!28)=string$
  343. LoadAddresses(inputfile$)
  344.  check%, fileopen, char, var$, macro$, addressnumber
  345. "OS_File",5,inputfile$ 
  346.  check%
  347.  check%=0 
  348. fileopen=
  349.  inputfile$
  350. var$=""
  351. char=
  352. #fileopen
  353.  char>96 
  354.  char<123 
  355.  char-=32
  356.  char<>
  357.  char<>10 
  358.  char<>13 
  359.  char<>32 
  360.  char<>0 
  361. (var$)<250 
  362.  var$=var$+
  363. (char)
  364.  char=
  365. #fileopen
  366. #fileopen 
  367. #fileopen:
  368. macro$=""
  369. char=
  370. #fileopen
  371.  char=92 
  372.  macro$=macro$+
  373.  char<>10 
  374.  char<>13 
  375.  char<>
  376. (macro$)<255 
  377.  macro$=macro$+
  378. (char)
  379.  char=10 
  380.  char=13 
  381. #fileopen
  382. addressnumber=0
  383.  (var$)=7 
  384. var$,5)="ADTAG" 
  385.  addressnumber=(
  386. var$,2))
  387.  (var$)=7 
  388. var$,5)="ADDEF" 
  389.  addressnumber=(
  390. var$,2))
  391.  (var$)=6 
  392. var$,5)="ADTAG" 
  393.  addressnumber=(
  394. var$,1))
  395.  (var$)=6 
  396. var$,5)="ADDEF" 
  397.  addressnumber=(
  398. var$,1))
  399.  var$="ADDEF" 
  400.  var$="ADTAG" var$=""
  401. var$,5)="ADDEF" 
  402.  addressnumber>12 var$=""
  403. var$,5)="ADTAG" 
  404.  addressnumber>12 var$=""
  405. var$,5)="ADDEF" 
  406.  addressnumber<1  var$=""
  407. var$,5)="ADDEF" 
  408.  addressnumber<1  var$=""
  409. var$,5) 
  410.  "ADTAG": 
  411. DoAddressString(addressnumber-1,macro$)
  412.  "ADDEF": address$(addressnumber)=macro$
  413.  var$="MAIL" 
  414.  address$(11)=macro$:
  415. DoAddressString(10,"Old !HTMacroL E-ddress")
  416.  var$="ADDR" 
  417.  address$(12)=macro$:
  418. DoAddressString(11,"Old !HTMacroL Address")
  419. #fileopen
  420. #fileopen
  421. DefineCharacters
  422.  listitem$(13)
  423.  char$(116)
  424. listitem$(1)="<ol>"
  425. listitem$(2)="</ol>"
  426. listitem$(3)="<ul>"
  427. listitem$(4)="</ul>"
  428. listitem$(5)="<li>"
  429. listitem$(6)="<dl>"
  430. listitem$(7)="</dl>"
  431. listitem$(8)="<dt>"
  432. listitem$(9)="<dd>"
  433. *char$(1)="<":
  434. DoCharString(09,"<")
  435. *char$(2)=">":
  436. DoCharString(10,">")
  437. *char$(3)="/":
  438. DoCharString(11,"/")
  439. *char$(4)="&":
  440. DoCharString(12,"&")
  441. *char$(5)="#":
  442. DoCharString(13,"#")
  443. *char$(6)="!":
  444. DoCharString(14,"!")
  445. ,char$(7)="™":
  446. DoCharString(15,"
  447. +char$(8)="©":
  448. DoCharString(16,"
  449. +char$(9)="®":
  450. DoCharString(17,"
  451. ,char$(10)="£":
  452. DoCharString(18,"
  453. ,char$(11)="×":
  454. DoCharString(19,"
  455. ,char$(12)="÷":
  456. DoCharString(20,"
  457. char$(13)=" "
  458. DoCharString(21,"HS")
  459.  loop%=2 
  460. DoChar(loop%+20,loop%+159)
  461. )char$(loop%+12)="&#"+
  462. (loop%+159)+";"
  463. LoadChars("<HTML2Scripts$Dir>.Chars")
  464. LoadChars(inputfile$)
  465.  check%, fileopen, char, var$, macro$, addressnumber
  466. "OS_File",5,inputfile$ 
  467.  check%
  468.  check%=0 
  469. fileopen=
  470.  inputfile$
  471. var$=""
  472. char=
  473. #fileopen
  474.  char>96 
  475.  char<123 
  476.  char-=32
  477.  char<>
  478.  char<>10 
  479.  char<>13 
  480.  char<>32 
  481.  char<>0 
  482. (var$)<250 
  483.  var$=var$+
  484. (char)
  485.  char=
  486. #fileopen
  487. #fileopen 
  488. #fileopen:
  489. macro$=""
  490. char=
  491. #fileopen
  492.  char=92 
  493.  macro$=macro$+
  494.  char<>10 
  495.  char<>13 
  496.  char<>
  497. (macro$)<255 
  498.  macro$=macro$+
  499. (char)
  500.  char=10 
  501.  char=13 
  502. #fileopen
  503. charnumber=0
  504.  (var$)=7 
  505. var$,4)="CTAG" 
  506.  charnumber=(
  507. var$,3))
  508.  (var$)=6 
  509. var$,4)="CTAG" 
  510.  charnumber=(
  511. var$,2))
  512.  (var$)=5 
  513. var$,4)="CTAG" 
  514.  charnumber=(
  515. var$,1))
  516.  (var$)=7 
  517. var$,4)="CDEF" 
  518.  charnumber=(
  519. var$,3))
  520.  (var$)=6 
  521. var$,4)="CDEF" 
  522.  charnumber=(
  523. var$,2))
  524.  (var$)=5 
  525. var$,4)="CDEF" 
  526.  charnumber=(
  527. var$,1))
  528.  var$="CDEF" 
  529.  var$="CTAG" var$=""
  530. var$,4)="CDEF" 
  531.  charnumber>116 var$=""
  532. var$,4)="CTAG" 
  533.  charnumber>116 var$=""
  534. var$,4)="CDEF" 
  535.  charnumber<001 var$=""
  536. var$,4)="CTAG" 
  537.  charnumber<001 var$=""
  538. var$,4) 
  539.  "CTAG": 
  540. DoCharString(charnumber+8,macro$)
  541.  "CDEF": char$(charnumber)=macro$
  542.  var$ 
  543.  "OL"  : listitem$(1)=macro$
  544.  "NOOL": listitem$(2)=macro$
  545.  "UL"  : listitem$(3)=macro$
  546.  "NOUL": listitem$(4)=macro$
  547.  "LI"  : listitem$(5)=macro$
  548.  "DL"  : listitem$(6)=macro$
  549.  "NODL": listitem$(7)=macro$
  550.  "DH"  : listitem$(8)=macro$
  551.  "DD"  : listitem$(9)=macro$
  552. #fileopen
  553. #fileopen
  554. DoChar(icon,character)
  555. !block%=charhandle
  556. block%!4=icon
  557. "Wimp_GetIconState",,block%
  558. $(block%!28)=
  559. (character)
  560. DoCharString(icon,string$)
  561. (string$)>2 string$=
  562. string$,2)
  563.  icon>116 
  564. !block%=charhandle
  565. block%!4=icon
  566. "Wimp_GetIconState",,block%
  567. $(block%!28)=string$
  568. DefineEffectsMacros
  569.  colour$(32), minus$(7), plus$(7)
  570.  loop%,loop2%,number$
  571.  loop%=1 
  572.    number$=
  573. ~((loop%-1)*8.25)
  574. (number$)=1 number$="0"+number$
  575.    colour$(loop%)=
  576. 3,number$)
  577. DefineColours
  578. -zero$="<font size="+
  579. (34)+"+0"+
  580. (34)+">" 
  581.  loop%=1 
  582. >  minus$(loop%)="<font size="+
  583. (34)+"-"+
  584. (loop%)+
  585. (34)+">"
  586. >   plus$(loop%)="<font size="+
  587. (34)+"+"+
  588. (loop%)+
  589. (34)+">"
  590. resetfont$="</font>"  
  591.  ital$="<em>":noital$="</em>"
  592. (bold$="<strong>":nobold$="</strong>"
  593.  under$="<u>":nounder$="</u>"
  594. Wusereffect$="<font size=7 color=#006000><b><i>":nousereffect$="</i></b></font><br>"
  595.  sub$="<sub>":nosub$="</sub>"
  596.  sup$="<sup>":nosup$="</sup>"
  597. LoadEffectsMacros("<HTML2Scripts$Dir>.Effects")
  598. LoadEffectsMacros(inputfile$)
  599.  check%, fileopen, char, var$, macro$
  600. "OS_File",5,inputfile$ 
  601.  check%
  602.  check%=0 
  603. fileopen=
  604.  inputfile$
  605. var$=""
  606. char=
  607. #fileopen
  608.  char>96 
  609.  char<123 
  610.  char-=32
  611.  char<>
  612.  char<>10 
  613.  char<>13 
  614.  char<>32 
  615.  char<>0 
  616. (var$)<250 
  617.  var$=var$+
  618. (char)
  619.  char=
  620. #fileopen
  621. #fileopen 
  622. #fileopen:
  623. DefineColours:
  624. macro$=""
  625. char=
  626. #fileopen
  627.  char=92 
  628.  macro$=macro$+
  629.  char<>10 
  630.  char<>13 
  631.  char<>
  632. (macro$)<255 
  633.  macro$=macro$+
  634. (char)
  635.  char=10 
  636.  char=13 
  637. #fileopen
  638.  var$ 
  639.  "ITAL":   
  640.  ital$=macro$
  641.  "NOITAL": 
  642.  noital$=macro$
  643.  "BOLD":   
  644.  bold$=macro$
  645.  "NOBOLD": 
  646.  nobold$=macro$
  647.  "UNDER":  
  648.  under$=macro$
  649.  "NOUNDER":
  650.  nounder$=macro$
  651.  "USER":   
  652.  usereffect$=macro$
  653.  "NOUSER": 
  654.  nousereffect$=macro$
  655.  "SUB":    
  656.  sub$=macro$
  657.  "SUP":    
  658.  sup$=macro$
  659.  "NOSUB":  
  660.  nosub$=macro$
  661.  "NOSUP":  
  662.  nosup$=macro$
  663.  "ZERO":   
  664.  zero$=macro$
  665.  "RESET":  
  666.  resetfont$=macro$
  667. var$,3)="COL" 
  668.  value=(
  669. var$,2)): 
  670.  value>32 
  671.  value<1 
  672.  var$=""
  673. var$,4)="PLUS" 
  674.  value=(
  675. var$,1)): 
  676.  value>7 
  677.  value<1 
  678.  var$=""
  679. var$,5)="MINUS" 
  680.  value=(
  681. var$,1)): 
  682.  value>7 
  683.  value<1 
  684.  var$=""
  685. var$,3)="COL" 
  686.  colour$(
  687. var$,2))=macro$
  688. var$,4)="PLUS" 
  689.  plus$(
  690. var$,1))=macro$
  691. var$,5)="MINUS" 
  692.  minus$(
  693. var$,1))=macro$
  694. #fileopen
  695. #fileopen
  696. DefineColours
  697. DefineStyles
  698. 6Zheader$="<html><head><title>"+
  699. (13)+"Insert Title Here!"+
  700. (13)+"</title></head><body>"
  701. footer$="</body></html>"
  702. h1on$="<center><h1>"
  703. h1off$="</h1></center>"
  704. h2on$="<h2>"
  705. h2off$="<h2>"
  706. h3on$="<h3>"
  707. h3off$="</h3>"
  708. h4on$="<h4>"
  709. h4off$="</h4>"
  710. h5on$="<h5>"
  711. h5off$="</h5>"
  712. h6on$="<h6>"
  713. h6off$="</h6>"
  714. center$="<center>"
  715. nocenter$="</center>"
  716. paragraph$="<p>"+
  717. paraoff$="</p>"+
  718. H"paraleft$="<P align=""left"">"
  719. I$pararight$="<P align=""right"">"
  720. J¶center$="<P align=""center"">"
  721. break$="<br>"
  722. nobreak$="</br>"
  723. M$breakleft$="<br align=""left"">"
  724. N&breakright$="<br align=""right"">"
  725. O(breakcenter$="<br align=""center"">"
  726. P%image$="<img border=0 src="+
  727. cap$=
  728. (34)+">"
  729. link$="<a href="+
  730. S goname$="<a href="+
  731. (34)+"#"
  732. aname$="<a name="+
  733. endlink$="</a>"
  734. V"rule$=
  735. (13)+"<P><HR><P>"+
  736. WGbar$="<p><center><img src=""bar.gif"" alt=""-=oOo=-""></center><p>"
  737. X=customrule$="<P><HR size=""3"" width=""25%"" noshade><P>"
  738. pre$="<pre>"
  739. nopre$="</pre>"
  740. tt$="<tt>"
  741. nott$="</tt>"
  742. code$="<code>"
  743. nocode$="</code>"
  744. variable$="<var>"
  745. novar$="</var>"
  746. cite$="<cite>"
  747. nocite$="</cite>"
  748. addressstyle$="<address>"
  749. noaddress$="</address>"
  750. quote$="<blockquote>"
  751. noquote$="</blockquote>"
  752. strikeout$="<strike>"
  753. nostrikeout$="</strike>"
  754. i1user1$="<font color=""#ff0000"" size=""+3"">"
  755. nouser1$="</font>"
  756. k+user2$="<font size=""+3""><em><strong>"
  757. l.nouser2$="</strong></em><font size=""0"">"
  758. LoadStyles("<HTML2Scripts$Dir>.Styles")
  759. LoadStyles(inputfile$)
  760.  LOCAL ERROR: ON ERROR CLOSE#0:ENDPROC
  761. "OS_File",5,inputfile$ 
  762.  check%
  763.  check%=0 
  764.  inputfile$
  765. var$=""
  766. char=
  767.  char>96 
  768.  char<123 
  769.  char-=32
  770.  char<>
  771.  char<>10 
  772.  char<>13 
  773.  char<>32 
  774.  char<>0 
  775. (var$)<250 
  776.  var$=var$+
  777. (char)
  778.  char=
  779. macro$=""
  780. char=
  781.  char=92 
  782.  macro$=macro$+
  783.  char<>10 
  784.  char<>13 
  785.  char<>
  786. (macro$)<255 
  787.  macro$=macro$+
  788. (char)
  789.  char=10 
  790.  char=13 
  791.  var$ 
  792.  "HEAD":header$=macro$
  793.  "FOOT":footer$=macro$
  794.  "BIGTEXT":
  795. DoOldBigText
  796.  "NOBIG":nouser2$=macro$
  797.  "H1ON":h1on$=macro$ 
  798.  "NOH1":h1off$=macro$ 
  799.  "H2ON":h2on$=macro$ 
  800.  "NOH2":h2off$=macro$ 
  801.  "H3ON":h3on$=macro$ 
  802.  "NOH3":h3off$=macro$ 
  803.  "H4ON":h4on$=macro$ 
  804.  "NOH4":h4off$=macro$  
  805.  "H5ON":h5on$=macro$  
  806.  "NOH5":h5off$=macro$  
  807.  "H6ON":h6on$=macro$ 
  808.  "NOH6":h6off$=macro$
  809.  "CENTER":center$=macro$ 
  810.  "NOCENT":nocenter$=macro$ 
  811.  "PARA":paragraph$=macro$ 
  812.  "PARAOFF":paraoff$=macro$ 
  813.  "PARALF":paraleft$=macro$ 
  814.  "PARART":pararight$=macro$ 
  815.  "PARACN":paracenter$=macro$ 
  816.  "BREAK":break$=macro$ 
  817.  "BREAKOFF":nobreak$=macro$ 
  818.  "BREAKLF":breakleft$=macro$ 
  819.  "BREAKRT":breakright$=macro$ 
  820.  "BREAKCN":breakcenter$=macro$
  821.  "IMAGE":image$=macro$ 
  822.  "CAP":cap$=macro$ 
  823.  "LINK":link$=macro$ 
  824.  "GONAME":goname$=macro$ 
  825.  "NAME":aname$=macro$ 
  826.  "ENDLK":endlink$=macro$ 
  827.  "RULE":rule$=macro$ 
  828.  "BAR":bar$=macro$ 
  829.  "CUSTOMRULE":customrule$=macro$
  830.  "PRE":pre$=macro$ 
  831.  "NOPRE":nopre$=macro$ 
  832.  "TT":tt$=macro$ 
  833.  "NOTT":nott$=macro$ 
  834.  "CODE":code$=macro$ 
  835.  "NOCODE":nocode$=macro$ 
  836.  "VAR":variable$=macro$ 
  837.  "NOVAR":novar$=macro$ 
  838.  "CITE":cite$=macro$ 
  839.  "NOCITE":nocite$=macro$ 
  840.  "ADDRESS":addressstyle$=macro$ 
  841.  "NOADDRESS":noaddress$=macro$ 
  842.  "QUOTE":quote$=macro$ 
  843.  "NOQUOTE":noquote$=macro$ 
  844.  "STRIKE":strikeout$=macro$ 
  845.  "NOSTRIKE":nostrikeout$=macro$ 
  846.  "USER1":user1$=macro$ 
  847.  "NOUSER1":nouser1$=macro$ 
  848.  "USER2":user2$=macro$ 
  849.  "NOUSER2":nouser2$=macro$
  850.  "USER1TAG":
  851. DoStyleString(51,macro$)
  852.  "USER2TAG":
  853. DoStyleString(53,macro$)
  854. DoOldBigText
  855. user2$=macro$:
  856. DoStyleString(53,"BigText")
  857. DoStyleString(icon,string$)
  858. (string$)>12 string$=
  859. string$,12)
  860.  icon<>51 
  861.  icon<>53  
  862. !block%=styleshandle
  863. block%!4=icon
  864. "Wimp_GetIconState",,block%
  865. $(block%!28)=string$
  866. ClickOnStyles
  867.  (bl!8 
  868.  4)=1 
  869. "Wimp_CloseWindow",,block%
  870. temp$=""
  871.  bl!16 
  872.  00:temp$=header$
  873.  55:temp$=footer$
  874.  01:temp$=h1on$
  875.  02:temp$=h1off$
  876.  03:temp$=h2on$
  877.  04:temp$=h2off$
  878.  05:temp$=h3on$
  879.  06:temp$=h3off$
  880.  07:temp$=h4on$
  881.  08:temp$=h4off$
  882.  09:temp$=h5on$
  883.  10:temp$=h5off$
  884.  11:temp$=h6on$
  885.  12:temp$=h6off$
  886.  14:temp$=center$
  887.  15:temp$=nocenter$
  888.  16:temp$=paragraph$
  889.  17:temp$=paraoff$
  890.  18:temp$=paraleft$
  891.  19:temp$=paracenter$
  892.  20:temp$=pararight$
  893.  21:temp$=break$
  894.  22:temp$=nobreak$
  895.  23:temp$=breakleft$
  896.  24:temp$=breakcenter$
  897.  25:temp$=breakright$
  898.  26:temp$=image$
  899.  27:temp$=cap$
  900.  28:temp$=link$
  901.  29:temp$=goname$
  902.  30:temp$=aname$
  903.  31:temp$=endlink$
  904.  32:temp$=rule$
  905.  33:temp$=bar$
  906.  34:temp$=customrule$
  907.  35:temp$=pre$
  908.  36:temp$=nopre$
  909.  37:temp$=tt$
  910.  38:temp$=nott$
  911.  39:temp$=code$
  912.  40:temp$=nocode$
  913.  41:temp$=variable$
  914.  42:temp$=novar$
  915.  43:temp$=cite$
  916.  44:temp$=nocite$
  917.  45:temp$=addressstyle$
  918.  46:temp$=noaddress$
  919.  47:temp$=quote$
  920.  48:temp$=noquote$
  921.  49:temp$=strikeout$
  922.  50:temp$=nostrikeout$
  923.  51:temp$=user1$
  924.  52:temp$=nouser1$
  925.  53:temp$=user2$
  926.  54:temp$=nouser2$
  927.  temp$="" 
  928.  pumping=0 
  929. push(temp$):
  930.  pumping=1 
  931. (pump$)+
  932. (temp$)>255 
  933. pump$=pump$+temp$:
  934. ClickOnEffect
  935.  temp$, icon%
  936.  (bl!8 
  937.  4)=1 
  938. "Wimp_CloseWindow",,block%
  939. temp$="":icon%=bl!16
  940.  icon%<32 
  941.  temp$="<font color="+
  942. (34)+"#"+colour$(icon%+1)+
  943. (34)+">"
  944.  icon%>31 
  945.  icon%<39 
  946.  temp$=plus$(icon%-31)
  947.  icon%>39 
  948.  icon%<47 
  949.  temp$=minus$(icon%-39)
  950.  icon% 
  951.  39: temp$=zero$
  952.  47: temp$=resetfont$
  953.  48: temp$=ital$
  954.  49: temp$=noital$
  955.  50: temp$=bold$
  956.  51: temp$=nobold$
  957.  52: temp$=under$
  958.  53: temp$=nounder$
  959.  54: temp$=usereffect$
  960.  55: temp$=nousereffect$
  961.  56: temp$=sup$
  962.  57: temp$=nosup$
  963.  58: temp$=sub$
  964.  59: temp$=nosub$
  965.  temp$="" 
  966.  pumping=0 
  967. push(temp$):
  968.  pumping=1 
  969. (pump$)+
  970. (temp$)>255 
  971. pump$=pump$+temp$:
  972. ClickOnChar
  973.  temp$, icon%
  974.  (bl!8 
  975.  4)=1 
  976. "Wimp_CloseWindow",,block%
  977. temp$="":icon%=bl!16
  978.  icon%<=8 
  979.  temp$=listitem$(icon%+1)
  980.  icon%>=9 
  981.  temp$=char$(icon%-8)
  982.  temp$="" 
  983.  pumping=0 
  984. push(temp$):
  985.  pumping=1 
  986. (pump$)+
  987. (temp$)>255 
  988. pump$=pump$+temp$:
  989. ClickOnAddress
  990.  temp$, icon%
  991.  (bl!8 
  992.  4)=1 
  993. "Wimp_CloseWindow",,block%
  994. temp$="":icon%=bl!16
  995.  icon%>=0 
  996.  icon%<=11 
  997.  temp$=address$(icon%+1)
  998.  temp$="" 
  999.  pumping=0 
  1000. push(temp$):
  1001.  pumping=1 
  1002. (pump$)+
  1003. (temp$)>255 
  1004. pump$=pump$+temp$:
  1005.  help$
  1006.  block%!32 
  1007.  -2:help$="This is a HTML
  1008.  icon.|MPlease see the documentation for help on using this program.|M"
  1009.  effecthandle:help$="This is the HTML
  1010.  ""Effects"" window|MIt allows you to insert HTML colour, size and effect macros.|M"
  1011.  styleshandle:help$="This is the HTML
  1012.  ""Styles"" window|MIt allows you to insert HTML commands for (sub)headings and other styles.|M"
  1013.  charhandle:help$="This is the HTML
  1014.  ""Characters"" window|MIt allows you to insert HTML commands for the extended character set, and helps you to easily build up lists (bulletted, numbered or plain).|M"
  1015.  addresshandle:help$="This is the HTML
  1016.  ""Address"" window|MIt allows you to insert frequently used addresses and email links.|M"
  1017.  infohandle:help$="HTML
  1018. : Version "+ver$+"|M
  1019.  Richard Goodwin for House of Mabel Design|M"
  1020.  help$<>"" 
  1021. block%!12=block%!8
  1022. block%!16=&503
  1023. $(block%+20)=help$+
  1024. !block%=(25+
  1025.  help$) 
  1026.  "Wimp_SendMessage",17,block%,block%!4,0
  1027. fileinsert
  1028.  pos%,temp$
  1029. name$="":temp$=""
  1030. pos%=0
  1031.  ?(bl+44+pos%)<>0
  1032. name$+=
  1033. (?(bl+44+pos%))
  1034. pos%+=1
  1035. GetFileType
  1036. GetFileInfo
  1037.  filetype% 
  1038.  &C85 : temp$="<img src="+
  1039. (34)+file$+".jpeg"+
  1040. (34)+" border=0 alt="+
  1041. (34)+file$+
  1042. (34)+">"
  1043.  &695 : temp$="<img src="+
  1044. (34)+file$+".gif"+
  1045. (34)+" border=0 alt="+
  1046. (34)+file$+
  1047. (34)+">"
  1048.  &FAF : temp$="<a href="+
  1049. (34)+file$+".html"+
  1050. (34)+">"
  1051.  &3FB : temp$="<a href="+
  1052. (34)+file$+".arc"+
  1053. (34)+">"+file$+".arc</a>"
  1054.  &DDC : temp$="<a href="+
  1055. (34)+file$+".spk"+
  1056. (34)+">"+file$+".spk</a>"
  1057.  &FF9 : temp$="<img src="+
  1058. (34)+file$+
  1059. (34)+" border=0 alt="+
  1060. (34)+file$+
  1061. (34)+">"
  1062.  &FFF : 
  1063. LoadNewDefinitions(name$)
  1064.  temp$="" 
  1065.  pumping=0 
  1066. push(temp$):
  1067.  pumping=1 
  1068. (pump$)+
  1069. (temp$)>255 
  1070. pump$=pump$+temp$:
  1071. GetFileType
  1072.  "OS_File",5,name$ 
  1073.  ,,filetype%
  1074. q&filetype%=(filetype% 
  1075.  &FFF00)>>>8
  1076. GetFileInfo
  1077.  pos%,q$,noextension$
  1078. pos%=
  1079. (name$):file$=""
  1080. name$,pos%,1)
  1081. pos%-=1
  1082.  q$<>"." 
  1083.  file$=q$+file$
  1084.  q$="."
  1085. noextension$="":pos%=0
  1086. pos%+=1
  1087. file$,pos%,1)
  1088.  q$<>"/" noextension$+=q$
  1089.  q$="/" 
  1090.  pos%>=
  1091. (file$)
  1092. file$=noextension$
  1093. ClickOnChoices
  1094.  temp$, icon%
  1095.  (bl!8 
  1096.  4)=1 
  1097. "Wimp_CloseWindow",,block%
  1098. icon%=bl!16
  1099.  icon% 
  1100. SaveWindowOpts
  1101. LoadWindowOpts
  1102. "XOS_CLI","WIPE HTML2:Resources.Windows ~C F R ~V"
  1103. SaveDefs
  1104. reload
  1105. "XOS_CLI","Filer_OpenDir <HTML2Scripts$Dir>" 
  1106. "XOS_CLI","Filer_OpenDir <HTML2Scripts$Dir>.^.Backups"
  1107. DoTicks
  1108. DoTicks
  1109. DoTicks
  1110. byte%=0
  1111. %tick1%=
  1112. CheckTick(choicehandle,4)
  1113. %tick2%=
  1114. CheckTick(choicehandle,5)
  1115.  tick1%>0 
  1116.  tick1%=
  1117.  tick1%=
  1118.  tick2%>0 
  1119.  tick2%=
  1120.  tick2%=
  1121.  tick1%=
  1122.  byte%=1
  1123.  tick2%=
  1124.  byte%=byte%+2
  1125. %fileout=
  1126.  "HTML2:Resources.Ticks"
  1127. #fileout,byte%
  1128. #fileout
  1129. " at line ";
  1130. CheckTick(window%,icon%)
  1131.  flags
  1132. !block%=window%
  1133. block%!4=icon%
  1134. "Wimp_GetIconState",,block%
  1135. =block%!24
  1136. (1<<21)
  1137. SetTick(window%,icon%,tick%)
  1138. !block%=window%
  1139. block%!4=icon%
  1140.  tick% 
  1141.  block%!8=1<<21 
  1142.  block%!8=0
  1143. block%!12=1<<21
  1144. "Wimp_SetIconState",,block%
  1145. defineoptions
  1146. tick1%=
  1147. tick2%=
  1148. LoadTicks
  1149. SetTick(choicehandle,4,tick1%)
  1150. SetTick(choicehandle,5,tick2%)
  1151. LoadWindowOpts
  1152. LoadTicks
  1153.  byte%
  1154. byte%=0
  1155. &inputfile$="HTML2:Resources.Ticks"
  1156. "OS_File",5,inputfile$ 
  1157.  check%
  1158.  check%=0 
  1159. fileopen=
  1160.  inputfile$
  1161. byte%=
  1162. #fileopen
  1163. #fileopen
  1164.  byte% 
  1165.  2=1 
  1166.  tick1%=
  1167.  tick1%=
  1168.  byte%>1 
  1169.  tick2%=
  1170.  tick2%=
  1171. SaveWindowOpts
  1172. 'fileout=
  1173.  "HTML2:Resources.Windows"
  1174. !block%=addresshandle
  1175. "Wimp_GetWindowState",,block%
  1176.  outputloop=4 
  1177. #fileout,block%?outputloop
  1178. #fileout,block%?34
  1179. !block%=charhandle
  1180. "Wimp_GetWindowState",,block%
  1181.  outputloop=4 
  1182. #fileout,block%?outputloop
  1183. #fileout,block%?34
  1184. !block%=effecthandle
  1185. "Wimp_GetWindowState",,block%
  1186.  outputloop=4 
  1187. #fileout,block%?outputloop
  1188. #fileout,block%?34
  1189. !block%=styleshandle
  1190. "Wimp_GetWindowState",,block%
  1191.  outputloop=4 
  1192. #fileout,block%?outputloop
  1193. #fileout,block%?34
  1194. #fileopen 
  1195. " at line ";
  1196. LoadWindowOpts
  1197. (inputfile$="HTML2:Resources.Windows"
  1198. "OS_File",5,inputfile$ 
  1199.  check%
  1200.  check%=0 
  1201. fileopen=
  1202.  inputfile$
  1203.  inputloop=4 
  1204. block%?inputloop=
  1205. #fileopen
  1206. !block%=addresshandle
  1207. block%!28=-1
  1208. "Wimp_OpenWindow",,block%
  1209. #fileopen 
  1210.  1)=0 
  1211. "Wimp_CloseWindow",,block%
  1212.  inputloop=4 
  1213. block%?inputloop=
  1214. #fileopen
  1215. !block%=charhandle 
  1216. block%!28=-1
  1217. "Wimp_OpenWindow",,block%
  1218. #fileopen 
  1219.  1)=0 
  1220. "Wimp_CloseWindow",,block%
  1221.  inputloop=4 
  1222. block%?inputloop=
  1223. #fileopen
  1224. !block%=effecthandle 
  1225. block%!28=-1
  1226. "Wimp_OpenWindow",,block% 
  1227. #fileopen 
  1228.  1)=0 
  1229. "Wimp_CloseWindow",,block%
  1230.  inputloop=4 
  1231. block%?inputloop=
  1232. #fileopen
  1233. !block%=styleshandle
  1234. block%!28=-1
  1235. "Wimp_OpenWindow",,block% 
  1236. #fileopen 
  1237.  1)=0 
  1238. "Wimp_CloseWindow",,block%
  1239. #fileopen
  1240. RedrawWindows
  1241. reload
  1242. LoadStyles("<HTML2Scripts$Dir>.Styles")
  1243. LoadEffectsMacros("<HTML2Scripts$Dir>.Effects")
  1244. LoadAddresses("<HTML2Scripts$Dir>.Address")
  1245. LoadChars("<HTML2Scripts$Dir>.Chars")
  1246. RedrawWindows
  1247. RedrawWindows
  1248. "Wimp_ForceRedraw",-1,-1000,-1000,6000,6000
  1249. tofile(tofile$)
  1250.  output
  1251.  tofile$="" 
  1252.  pos%=1
  1253. (tofile$)
  1254. output=
  1255. tofile$,pos%,1)
  1256.  output=13 output=
  1257. #fileopen,output
  1258. #fileopen,13
  1259. LoadNewDefinitions(name$)
  1260. LoadStyles(name$)
  1261. LoadEffectsMacros(name$)
  1262. LoadAddresses(name$)
  1263. LoadChars(name$)
  1264. RedrawWindows
  1265. SaveDefs
  1266. SaveEffects
  1267. SaveChars
  1268. SaveAddress 
  1269. SaveStyle
  1270. SaveEffects
  1271. "XOS_CLI","Copy <HTML2Scripts$Dir>.Effects <HTML2Scripts$Dir>.^.Backups.Effects A ~C ~D F ~L ~N ~P Q ~R ~S ~T ~V"
  1272. ;+fileopen=
  1273.  "<HTML2Scripts$Dir>.Effects"
  1274. tofile("ITAL="+ital$)
  1275. tofile("NOITAL="+noital$)
  1276. tofile("BOLD="+bold$) 
  1277. tofile("NOBOLD="+nobold$) 
  1278. tofile("UNDER="+under$) 
  1279. tofile("NOUNDER="+nounder$) 
  1280. tofile("USER="+usereffect$) 
  1281. tofile("NOUSER="+nousereffect$)
  1282. tofile("SUB="+sub$) 
  1283. tofile("SUP="+sup$) 
  1284. tofile("NOSUB="+nosub$) 
  1285. tofile("NOSUP="+nosup$)
  1286.  loop=1
  1287. tofile("PLUS="+plus$(loop))
  1288.  loop=1
  1289. tofile("MINUS="+minus$(loop))
  1290. tofile("ZERO="+zero$) 
  1291. tofile("RESET="+resetfont$)
  1292.  loop=1
  1293. Q-loop$=
  1294. (loop):
  1295.  loop<10 
  1296.  loop$="0"+loop$
  1297. tofile("COL"+loop$+"="+colour$(loop))
  1298. #fileopen
  1299. "XOS_CLI","SetType <HTML2Scripts$Dir>.Effects FFF"
  1300. SaveChars
  1301. "XOS_CLI","Copy <HTML2Scripts$Dir>.Chars <HTML2Scripts$Dir>.^.Backups.Chars A ~C ~D F ~L ~N ~P Q ~R ~S ~T ~V"
  1302. [)fileopen=
  1303.  "<HTML2Scripts$Dir>.Chars"
  1304. tofile("OL="+listitem$(1))
  1305. tofile("NoOL="+listitem$(2))
  1306. tofile("UL="+listitem$(3))
  1307. tofile("NoUL="+listitem$(4))
  1308. tofile("LI="+listitem$(5))
  1309. tofile("DL="+listitem$(6))
  1310. tofile("NoDL="+listitem$(7))
  1311. tofile("DH="+listitem$(8))
  1312. tofile("DD="+listitem$(9))
  1313.  loop=9
  1314. tofile("CTag"+
  1315. (loop-8)+"="+
  1316. ReadChar(loop))
  1317. tofile("CDef"+
  1318. (loop-8)+"="+char$(loop-8))
  1319. #fileopen
  1320. "XOS_CLI","SetType <HTML2Scripts$Dir>.Chars FFF"
  1321. ReadChar(icon)
  1322. !block%=charhandle
  1323. block%!4=icon
  1324. "Wimp_GetIconState",,block%
  1325. =$(block%!28)
  1326. SaveAddress
  1327. "XOS_CLI","Copy <HTML2Scripts$Dir>.Address <HTML2Scripts$Dir>.^.Backups.Address A ~C ~D F ~L ~N ~P Q ~R ~S ~T ~V"
  1328. v+fileopen=
  1329.  "<HTML2Scripts$Dir>.Address"
  1330.  loop=1
  1331. x-loop$=
  1332. (loop):
  1333.  loop<10 
  1334.  loop$="0"+loop$
  1335. temp$=
  1336. ReadAddress(loop-1)
  1337. tofile("AdTag"+loop$+"="+temp$)
  1338. tofile("AdDef"+loop$+"="+address$(loop))
  1339. #fileopen
  1340. "XOS_CLI","SetType <HTML2Scripts$Dir>.Address FFF"
  1341. ReadAddress(icon)
  1342. !block%=addresshandle
  1343. block%!4=icon
  1344. "Wimp_GetIconState",,block%
  1345. =$(block%!28)
  1346. SaveStyle
  1347. $;" at line ";
  1348. "XOS_CLI","Copy <HTML2Scripts$Dir>.Styles <HTML2Scripts$Dir>.^.Backups.Styles A ~C ~D F ~L ~N ~P Q ~R ~S ~T ~V"
  1349. *fileopen=
  1350.  "<HTML2Scripts$Dir>.Styles"
  1351. tofile("HEAD="+header$)
  1352. tofile("FOOT="+footer$)
  1353. tofile("")
  1354. tofile("H1ON="+h1on$)
  1355. tofile("NOH1="+h1off$)
  1356. tofile("H2ON="+h2on$)
  1357. tofile("NOH2="+h2off$)
  1358. tofile("H3ON="+h3on$)
  1359. tofile("NOH3="+h3off$)
  1360. tofile("H4ON="+h4on$)
  1361. tofile("NOH4="+h4off$)
  1362. tofile("H5ON="+h5on$)
  1363. tofile("NOH5="+h5off$)
  1364. tofile("H6ON="+h6on$)
  1365. tofile("NOH6="+h6off$)
  1366. tofile("")
  1367. tofile("CENTER="+center$) 
  1368. tofile("NOCENT="+nocenter$) 
  1369. tofile("PARA="+paragraph$) 
  1370. tofile("PARAOFF="+paraoff$) 
  1371. tofile("PARALF="+paraleft$) 
  1372. tofile("PARART="+pararight$) 
  1373. tofile("PARACN="+paracenter$) 
  1374. tofile("BREAK="+break$) 
  1375. tofile("BREAKOFF="+nobreak$) 
  1376. tofile("BREAKLF="+breakleft$) 
  1377. tofile("BREAKRT="+breakright$) 
  1378. tofile("BREAKCN="+breakcenter$)
  1379. tofile("IMAGE="+image$) 
  1380. tofile("CAP="+cap$) 
  1381. tofile("LINK="+link$) 
  1382. tofile("GONAME="+goname$) 
  1383. tofile("NAME="+aname$) 
  1384. tofile("ENDLK="+endlink$) 
  1385. tofile("RULE="+rule$) 
  1386. tofile("BAR="+bar$) 
  1387. tofile("CUSTOMRULE="+customrule$)
  1388. tofile("")
  1389. tofile("PRE="+pre$) 
  1390. tofile("NOPRE="+nopre$) 
  1391. tofile("TT="+tt$) 
  1392. tofile("NOTT="+nott$) 
  1393. tofile("CODE="+code$) 
  1394. tofile("NOCODE="+nocode$) 
  1395. tofile("VAR="+variable$) 
  1396. tofile("NOVAR="+novar$) 
  1397. tofile("CITE="+cite$) 
  1398. tofile("NOCITE="+nocite$) 
  1399. tofile("ADDRESS="+addressstyle$) 
  1400. tofile("NOADDRESS="+noaddress$) 
  1401. tofile("QUOTE="+quote$) 
  1402. tofile("NOQUOTE="+noquote$) 
  1403. tofile("STRIKE="+strikeout$) 
  1404. tofile("NOSTRIKE="+nostrikeout$)
  1405. tofile("USER1TAG="+
  1406. ReadStyle(51))
  1407. tofile("USER1="+user1$) 
  1408. tofile("NOUSER1="+nouser1$) 
  1409. tofile("USER2TAG="+
  1410. ReadStyle(53))
  1411. tofile("USER2="+user2$) 
  1412. tofile("NOUSER2="+nouser2$) 
  1413. #fileopen
  1414. "XOS_CLI","SetType <HTML2Scripts$Dir>.Styles FFF"
  1415. ReadStyle(icon)
  1416. !block%=styleshandle
  1417. block%!4=icon
  1418. "Wimp_GetIconState",,block%
  1419. =$(block%!28)
  1420.